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Boy! doesn't time fly when you are having fun, or 
when you have a lot of work to do. It seems only 
yesterday that we were putting together the last 
newsletter and I had some news about the CoCoFest 
held in Chicago USA early May. 

I was indeed very lucky to have the opportunity to 
meet so many interesting people in Chicago and to 
make some new friends. Arrangements were made to 
exchange information and newsletters with a couple 
of the U.S. groups, and since our last newsletter we 
have received the Apr-May issue of ?t MXED", the 
newsletter of the U.S. OS-9 Users Group and also the 
May-Jun issue of "CoCol23", the publication of the 
Glenside Color Computer Club, Illinois. 



"cooperation" in the exchange of information between 
the 0S9 usergroups around the world. 

I have just read a message which Peter left on 
Delphi for me dated June 15th. Ooops! sorry about 
that Peter :-). Anyway, like myself, Peter has 
obviously been busy since Chicago and things are now 
starting to move again. 

I would be very grateful for any ideas or 
suggestions from our members which would support the 
exchange of OS-9 information between usergroups 
around the world. I would in turn pass your 
suggestions along to Peter Tutelaers in the 
Netherlands. 



MTU) Article 

A MOT) article by Chris Perrault deals with two 
things. The first is an old thought revived, 
encouragement to upgraded OS-9 Level II to version 
3.0. The second is to form a Level II Standards 
Conmittee. Chris correctly points out that Level II 
has matured since its release with many module 
patches, rewrites and general hacks which have 
resulted in a system which has really begun to let 
its true potential shine. All this however has the 
result that many different systems are in use with 
possible incompatibility and confusion to users and 
programmers. Chris goes on to suggest that a 
version 3.0 could be made from the original issue 
system with agreed standard patches etc. The end 
result would be a Level II version 3.0 OS-9 system 
which was a known quantity and which would perform 
predictably with any programme or utility. 



Oie of the very first questions to be addressed is 
that of; by what means is the data to be 
transferred? How is the material to be controlled? 
Who is responsible? Where does the "Cooperation" 
fit with existing usergroups and networks, such as 
the OCN (0S9 Conmunity Network) which widely uses 
the Fido network for messages etc? 

We really need to answer only a few questions, How? 
Where? When? and Why? - that should cover it. 

FAILED TEST 

Now I must adnit to having failed the test. What am 
I on about? Well I received a letter today from the 
president of the U.S. OS-9 Usergroup in which he 
expressed his dissappointment at the lack of 
response from his attempt to initiate an exchange of 
news articles between user groups. 



So what are your thoughts? Should such a Version 
3.0 upgrade be attempted? And if so, how are the 
"standards" to be selected? A standards conmittee?? 



Jim DeStafeno mailed some of his newsletter articles 
on disk to Japan, Netherlands, Germany, Switzerland 
and Australia (c/o myself) late in May. 



We would be happy to 
input . 



pass on your thoughts and 



Some five weeks later, apparently NO replies. O.K. 
so I have failed the test, sorry Jim, I will fix. 



Glenside CoCol23 Artilce 

As one might expect, the May- June issue of this 
newsletter included a detailed CoCoFest report. In 
this report by Allen Huffman he praised the 
"International 0S9 Consortium Discussion" which was 
organized by Peter Tutelaers, EUROS-9. I must 
confirm that this session was very well attended and 
a lot of interest shown in the concept of a 



We shouldn't have to rely on people like Jim to keep 
pushing things along, so I will do my bit. 

I know that each of you can contribute something in 
the way of information, ideas, or questions. Please 
send these to us now! 

Until next time, Cheers, Gordon. 
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Get Next Window 

a progranme from our FD archive 



'Getnw' is a subroutine which is to be used with Ron 
Lamiiardo's ! shell+', v2.1. f Shell+' is available in 
the database here. 'Getnw' is a subroutine which 
retrieves the name of the next available window and 
puts it into a *shell+' subvariable. 

I have my system set up to open two or three windows 
on startup. I like to run larger programs from 
shell scripts - especially those which diddle 
pallette colors. The script opens a window, starts 
the application, and closes the window when the 
application is done. This way, my original windows 
remain available while the application is running, 
and their colors don't get changed to some oddball 
combination. I keep the scripts in my execution 
directory with the executed attribute set. 
Before 'shell+' and 'getnw 1 , the limitation to this 
scheme was that each application had to be hardcoded 
to a specific window. If the '/w' wildcard window 
name were used in the script, the shell had no way 
of knowing which window was actually used, making it 
difficult to get rid of it, or to manipulate output 
to it from the script. 

The format for 'getnw' is: 

getnw n 

where n is an integer, 0-9. 'Getnw' will get the 
name of the next available window and store it in 
'she 11+' subvariable n. It can then be accessed by 
*shell+' by using "%7jV\ (See 'shell+' 
documentation for details of this.) A bad value of 
n will just do nothing, without any error report. 
If another window is unavailable, a #221 error gets 
passed back to 'shell+'j which will report it. 



'getnw' call and the 'wcreate' call — an unlikely 
possibility. If this were to happen, no damage 

would be done anyway the 'wcreate' call would 

just result in an error and abort the script. 

Enjoy, and if any questions, ask. 

Dennis Skala 

CIS: 73177,2365 
Delphi: DENNYSKALA 

Here's the source code (in Assembler for a change!) 



getnw - gets the name of the 
next available window 
into a shellplus subvariable 



Use: getnw n 



Copyright 1989 by Dennis Skala 
All rights reserved. May be freely 
distributed so long as this notice 
is left intact. 



■ where n= to 9 
is the subvar into 
which the name is to be put * 

No error is returned for a bad 
parameter, and no action is taken. 
System Call errors are passed back 
to shellplus. 



As an example, here is the script file I use to run 
wizpro. 

* script file to execute wizpro in next window 

getnw 

unlink getnw 

wcreate %%Q -s=l 40 24 2 A 4 

merge /dd/sys/stdfonts 

prompt Autolog file ([enter] = none) — 

var.l 

display 02 2d 2c 05 20 lb 21 </l > %%0 

echo Starting Wizpro >%%0 

ex /dd/ com/pro /emds 

(wizpro %1 O»%%0;deiniz %%0)& 



The only potential problem here is if another 
process were to grab off the window inbetween the start 





nam getnw 




if pi 




use /dd/defs/os9defs 




endc 


shellsub 


set $50 


rev 


set 1 


attr 


set reent+rev 


type 


set shellsub+objct 




mod len, name, type, attr, star t,0 


name 


fes /getnw/ 




f cb rev 


win 


fee "/w" 




f cb $0d cr 



equ 
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si 



s2 
<cr> 



tl 



Ida ,x+ get char window 

cmpa #' leading space is CK 

beq si cl 

pshs a save char for now 

Ida ,x+ most not be another char before 

cmpa #' space is CK 

beq s2 wl 

cmpa #$0d most be <cr> here 

beq tl 

puis a clean stack 

bra errout and exit without error 

puis a retrieve character rl 

suba #$30 ASCII to number 

bmi errout invalid entry r2 

cmpa #9 

bhi errout invalid entry 

ldb #81 

mul calculate offset to variable area 

leax d,u 

Ida #'/ 

sta ,x+ name starts with / errout 

tfr x,y save the pointer for later 

Ida #write. len 

leax win,pc 

os9 i$open open path to next available 



bcc wl 

leay -l,y if error 

Ida #$0d clear the entry 

sta ,y 

bra errout and exit without error 



ldb #ss.devnm 

tfr y,x point to subvar 

os9 i$getstt get the name 

bcc rl 

os9 i$close if error 

bra cl 

os9 i$close close the path 

bcs cl if error 

Ida ,y+ read the name 

bpl r2 if not at end 

leay -l,y last char position 

anda #%01111111 strip off hi bit 

sta ,y+ replace it 

Ida #$0d 

sta ,y end with a <cr> 

rts no action on error 

emod 

equ * 

end 



c)oocKxxxxxyX)0C300CXXX)cKXXXXxxxx> 

Floppy to Hard to Floppy 
Backup Utility 



FHF (Floppy to Hard to Floppy disk) Backup Utility 

This utility was written because I hate to 
waste my time swapping floppy disks during a single 
drive Backup. Since I have a hard drive as well as 
a floppy drive, I decided to write a utility that 
writes the source floppy disk's entire contents to a 
hard disk file, prompts to swap in a formatted 
destination floppy disk, and writes the hard disk 
file out to the destination floppy disk. 

By turning off the verify during the 
destination disk write and performing a verify pass 
afterward I was able to reduce the entire back up 
time to less than 7 minutes for a 72CK disk on my 
system. Your time will vary depending on the speed 
of your hard and floppy disk I/O and the size of the 
floppy disk. 

This program requires the f SysCall' subroutine 
which comes with Basic09 in the Color Computer 3's 
Level 2 0S-9 package. The 'SysCall' subroutine must 
be in your current execution (CMDS) directory, or in 



memory. If you do not have the 'SysCall' 
subroutine, it is possible to edit the Basic09 
source and remove the two lines that reference 
'SysCall'. Save the edited source and then make a 
new packed version of FHF in your current exection 
(CMDS) directory. If you want to maintain the 
highest possible back up speed, you should manually 
turn off the write verify before running the 
modified FHF program. You should turn the write 
verify back on after the modified FHF program is 
finished. 



Here are the instructions to get FHF ready to 



run: 



1) Eictract the packed Basic09 'Fhf ' module from 
■fhf.ar\ 

2) Copy 'Fhf' to your current execution (CMDS) 
directory . 

3) Copy 'RunB' to your current execution (CMDS) 
directory if it's not already there. 

4) Copy 'SysCall' to your current execution (CMDS) 
directory if it's not already there. 
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Here are the instructions to run FHF: 

1) Type 'Fhf and press [ENTER], 

2) FHF will ask you for the source /destination 
drive. Type in the floppy drive name (you mist 
include the slash) and press [ENTER] . 

3) FHF will ask you for the temporary storage 
drive. Type in the hard drive name (you must 
include the slash) and press [ENIER] . 

4) FHF will print out the information you just 
gave, and ask you if it's correct. If the 
information is correct, type ! Y' or f y ! and 
press [ENTER]. If the information is incorrect, 
type f N' or f n' and press [ENTER]. If you wish 
to quit, type f Q' or ! q r and press [ENIER]. 

5) If the information is correct, FHF will ask you 
to insert the destination disk into the floppy 
drive and press [ENTER] when ready. Once you do 
this, FHF checks the destination disk for size 
and ID. 

6) FHF then asks you to insert the source disk into 



the floppy drive and press [ENIER] when ready. 
Once you have done this, FHF checks the source 
disk's size. If the source and destination 
disks are not the same size, FHF will abort. 

7) FHF copies the entire source disk to a temporary 
file on the hard drive. When that is done, FHF 
will ask you to insert the destination disk into 
the floppy drive and press [ENIER] when ready. 
If the destination disk is not the same as 
before, FHF will prompt you again. 

8) Once FHF has copied the temporary hard disk file 
to the destination disk, it will delete the 
temporary file and verify the destination disk 
write. Any verify errors encountered will be 
reported to the standard error path. 



I hope you find 
Isted CIS 76625,2273 



this utility useful! Bruce 



Here's the sourcecode in Basic09: 



PROCEDURE EHF 

(* FHF (Floppy to Hard to Floppy disk) Backup Utility *) 

(* written by Bruce Isted CIS 76625,2273. *) 

(* Released to the Public Domain 87/08/02 *) 

(* for non-commercial use only. *) 

BASE 

DIM callcode,fd_path,hd_path,options(32) ,size_bytes(3) :BYTE 

DIM disk_id(2): INTEGER 

DIM chunk_total , count , dest_size , errorjcount , src_size :REAL 

DIM answer :SIRING[1] 

DIM fd_nam,hd_nam: STRING 

DIM sector:SIRING[256] 

DIM chunk:SIRING[8192] 

TYPE register s=cc, a ,b, dp: BYTE; x,y,u:INIEGER 

DIM regs: registers 

error jcount : =0 

REPEAT 

PRINT 

INPUT "Source/destination drive? (EG: 

INPUT "Temporary storage drive? (EG: 

PRINT 

PRINT "Source/destination drive is "; 

PRINT "Temporary storage drive is "; 



: /DO) ",fd_nam 
/HO) " ) hd_nam 

; fd_nam; "." 
hd nam: "." 



INPUT "Is this correct? (Y/N/Q) ", answer 

PRINT 

UNTIL SUBSTR(answer,"YyQq")<X) 

IF SUBSTR(answer,"Qq")O0 THEN 

PRINT 

END 

ENDIF 

PRINT "Insert destination disk into "; fdjiam; 

INPUT " and press [ENIER] when ready. ", answer 

OPEN /jtfd_j5ath,fd_nam+"@":READ 

GET #fd_j)ath,size_bytes 

SEEK #fd_path,14. 
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GET #fdj3ath,disk_id(0) 

dest_s ize : =s ize_by tes ( 0)*65536 . +size_bytes( 1 )*256 . +size_bytes ( 2 ) 

CLOSE #f d_j»ath 

PRINT "Insert source disk into "; fd_nam; 

INPUT " and press [ENTER] when ready. ", answer 

OPEN #fdj)ath,fdjiam+"@":READ 

GET #fd_j>ath,size_bytes 

src_size :=size_bytes(0)*65536.+size_bytes( 1 )*256.+size_bytes(2) 

IF srcsizeOdestsize THEN 

PRINT 

PRINT "FHF aborted: source and destination disks don't match." 

PRINT 

END 

ENDIF 

CREATE #hd_path , hd_nam+f d_nam+" . temp" : UPDATE 

SEEK #fd_path,.0 

chunktotal :=INT(src_size/ ( SIZE ( chunk) /256) ) 

FOR count=l TO chunk_total 

GET #fd_j>ath, chunk 

PUT #hd_path, chunk 

NEXT count 

WHILE NOT(EOF(#fdjDath)) DO 

GET #fd_j>ath, sector 

PL7T #hdj>ath, sector 

ENDWHILE 

CLOSE #f d_j»ath 

REPEAT 

PRINT 

PRINT "Insert destination disk into "; fdjiam; 

INPUT " and press [ENTER] when ready. ", answer 

PRINT 

OPEN #fd_path,fd_nam+"@":READ 

GET #fd_j>ath,size_bytes 

SEEK #fdj5ath,14. 

GET #fdj)ath,disk_id(l) 

CLOSE #f d_path 

src_size : =size_bytes(0)*65536 . +size_bytes(l )*256 . +size_bytes ( 2) 

UNTIL dest_size=src_size AND disk_id(0)=disk_id(l) 

OPEN yAfdjjath^djnam+'^'rUPDATE 

callcode:=$8D 

regs.a:=fd_path 

regs.b:=$00 

regs . x : =ADDR( op t ions ) 

RUN syscall(callcode,regs) 

options(8):=l 

callcode:=$8E 

regs . a : =f d_pa th 

regs. b: =$00 

regs . x : =ADCR( op t ions ) 

RUN sy seal Kcallcode, regs) 

SEEK #hd_path,.0 

FOR count=l TO chunk_total 

GET #hdj>ath, chunk 

PUT #fd_path, chunk 

NEXT count 

WHILE NOT(EOF(#hd_path)) DO 

GET #hdj>ath, sector 
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PUT #fd_path, sector 

ENEWHILE 

CLOSE #hd_path 

DELEIE hd_nam+f d_namf" . temp" 

PRINT "Sectors copied: "; src_size 

PRINT 'Verify pass... please wait." 

ON ERRCR GOTO 1000 

SEEK #fd_path,.0 

FOR count=0 TO src_size-l 

GET #fd_pathj sector 

100 

NEXT count 

CLOSE #f djDath 

PRINI 'Verify errors: "; error_count 

PRINT 

END 

1000 PRINT #2 /'Error ♦"; ERR; " at sector "; count 

error_count : =error_count+l 

GOTO 100 

c<xxxxxxxx30CXXXXX300Ctoc<xxxxxxK> 

A Fern in C 

You may remember, quite sane time ago, we printed a screen. He used a mathematical routine to plot the 
few programmes written by Mr. Ted Martin, of which points on the fern pattern. Well, here it is again, 
one was a programme to draw a fern on a graphics only this time in C. 

/* 

PROGRAM TO GENERATE THREE DIMENSIONAL THRA1ED 
FUNCTION SYSTEMS. Printed in Fractal Progranming 
in C writen by Roger T. Stevens, M&T Publishing 
Inc. Ported to the Color Computer by Marty Criswell 



♦include <stdio.h> /* this header is in the DEFS dir */ 
♦include <math.h> /* this header with the kreiderlib.l */ 
♦include <os9.h> /* this header is in the DEFS dir */ 
♦include <buffs.h> /* this header is on multivue disk */ 
♦include <wind.h> /* this header is on multivue disk */ 
♦include <lowio.h> /* for this file see our PD library */ 

int LINEWIimi,OPERATCH,XCENira^ 

long PATTERN; 

int adapt, mode; 

int j, k, index, xscale,yscale,xoffset,yoffset,pr,p[4] ,pk[4] ; 

int hues[8] = {2,10,11,14); 

unsigned i; 

float a[4] ,b[4] ,c[4] ,d[4] ,e[4] ,f [4] ,g[4] ,h[4] ,m[4] ,n[4] ,q[4] ,r[4] , 

ca,cb,cg,sa,sb,sg,x,y,z,newx,newy,alpha[4] = {30,45,15,95}, 

beta[4] - { 115, 105, 70,40>,ganro[4]={25, 70,20,-30); 

f loat rad_per_degree=0 . 0174533 ; 
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int path=STDOUT; 
char ch; 

maln() 



< 

DWEnd(path) ; 

DWSet(path,7,0,0,80,24,2,l,l); /* window set up */ 

CurOff(path); 

Palette(path,0,36); 

Palette(path,2,7); 

Palette(path,l,0); 

Select(path) ; 



a[0 
b[0 
c[0 
d[0 
e[0 
f[0 
g[0 
h[0 
m[0 
n[0 
q[0 
r[0 
p[0 



= .83; a[2] = .22; a[3] = -.22; 

= 0; b[2] = -.23; b[3] = .23; 

= 0; c[2] =0; c[3] =0; 

= 0; d[2] = .24; d[3] = .24; 
1] - .86; e[2] = .22; e[3] = .22; 

= .1; f[2] =0; f[3] = 0; 

= 0; g[2] = 0; g[3] = 0; 

= -.12; h[2] =0; h[3] = 0; 

= .84; m[2] = .32; m[3] = .32; 

= 0; n[2] = 0; n[3] = 0; 

= 1.62; q[2] = .82; q[3] = .82; 

= 0; r[2] = 0; r[3] = 0; 
1] = 27879 ; p[2] = 30173; p[3] = 32767; 



/* fractal parameters */ 



= 0; a[l 
= 0; b[l 
= 0; c[l 
= 0; d[l 
= .18; e 
= 0; f[l 
= 0; g[l 
= 0; h[l 
= 0; m[l 
= 0; n[l 
= 0; q[l 
= 0; r[l 
= 328; p 
xscale = 40; 
yscale = 33; 
xoffset = 60; 
yoffset = -125; 

for (index=0; index<4; index++) 
< 

ca = cos(alpha[index]*0. 0174533); 
cb = cos(beta[index]*0. 0174533); 
eg = cos (garnra[ index] *0. 0174533); 
sa = sin(alpha[index]*0. 0174533); 
sb = sin(beta [ index] *0. 0174533); 
sg = s in (gemma [ index] *0.01 74533); 

index==l index=3 ? FColor(path,0) : PColor(path,2); 
image_draw( ) ; 
> 

fscanf(STDIN, ,t %c ,, ,&ch); /* changed 'scanf 1 to 'fscanf ' here* ED */ 
EWEnd(path); /* reset window */ 

DWSet(path,2,0,0,80,24,0,l,l); 
Palette (path, 0,63); 
Palette(path,l,l); 
> 



image_draw( ) 

< 

int px,py; 
float vx,vy; 



/* calculate the points to draw */ 



x = 
y = 
z = 0: 
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for (i=l; i<= 10000; i++) 
{ 

j = rand(); 

k = (j < p[0]) ? : ((j < p[l]) ? 1 : ((j < p[2]) ? 2 : 3)) 

newx = (a[k]* x + b[k] * y + c[k] * z + n[k]); 

newy = (d[k] * x + e[k] * y + f [k] * z + q[k]); 

z = g[k] * x + h[k] * y + m[k] * z + r[k]; 

x = newx; 

y = newy; 

vx = x*ca + y*cb + z*cg; 

px = vx*xscale + xoffset; 

vy = x*sa + y*sb + z*sg; 

py = (vy*yscale + yoffset); 

if ((px>-320) && (px<320)&& (py>—192) && (py<192)){ 
plots (px, py, hues [index]); 

> 



plots(x, y, color) 
{ 



/* put the point on the screen */ 



fttefine convert(x,y) {x = (x + 319); y = (88 - ((93*y) » 7));} 

Select (path); 
convert (x,y); 
Point ( pa th,x,y); 
} 

ox)ckx)Ockx000CXD00000c>c<xxxxxxx> 

/\ 

/ w \ 

/ \ 

\ OZ - 0S9 / 

\_ — w 

o 

The National 0S9 Usergroup 

(07)-200-9870 

300/1200/2400 baud. 

20:00 to 22:30 HRS.(AEST) 

(8N1) 

Co-ordinator: Bob Devries (07)-278-7209 
Sysop: Rod Hoi den 



This is (RiBBS) A Tandy Coco Based BBS program. 

This BBS is accessable to Usergroup Markers ONLY! 
Feel free to look around , and test out the options. 

0S9 for Ever ! ! ! ! 



Hi, this is your Sysop once again letting you know what type of software is available. Here is the 
document on a progranme called Lotto for all you people who need seme help in selecting which numbers to 



July 1993 



Page 9 



AUSTRALIAN 0S9 NEWSLETTER 



cross off. 

LOTTO 0S9 LOTTO 

NAME 

Lotto - humorous lottery number picking game 
SYNOPSIS 

Lotto [-options] 

DESCRIPTION 

Lotto is a lotto number selection game. It is done in a somewhat satirical fashion somewhere between 
evangelism and random selection. 

The '-t' option sets the top of the number range for selection. The default is 49; 

The '-b' option sets the bottom of the number range for selection. The default is 1. 

The '-n' option sets the number of numbers to be selected. The default is 6. 

The ! -a' option sets the number of 'real people testimonials' you wish to hear from previous lotto 
winners . 

The '-?' and '-h 1 options both provide brief help messages. 
EXAMPLES 

Lotto 

Plays lotto with defaults 

Lotto -t99 -t\1 -a3 

Plays lotto with a top number of 99, picks 7 numbers, and gives 3 testimonials. 
SEE ALSO 

Psychic (This program is available also.) 

Message Menu Area 

If any user is running a BBS, could you please send 

Just a short note to let users know that when me your details I will make up a list and place it 

and if you decide to leave a message for other on the QZ-059 BBS, remember, users only. See you in 

users, please use the Local message menu because the the bit stream, Happy CoCoing. 
other message menus are for when we connect to 

outside BBS's. All you have to do is follow the Sysop 

prompts and you will be able to leave your message Rod Holden 
or messages. 

ooc<xxxxxx30000000C)OOocococ)oooo 
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Eg^TXOfrTfiX, QS9 ySERGRpqp — ^USTRALX A 

SUBSCRIPTION RENEWAL / APPLICATION 



Subscription Renewal [ ] 



New Subscription [ ] 



Surname : 



First Name 



Title 



Street 



Suburb: 



State : 



Postcode 



Country: 



Home Phone 



Business Phone: 



Age Group (please tick) Under 18 [ ] 

36-45 [ ] 



18-25 [ ] 26-35 [ ] 

46-55 [ ] over 55 [ ] 



Do you run 0S9 Level 1[ ] 0S9 Level 2[ ] OSK[ ] OS9000[ ] 



Type of Computer for 0S9 : 



RAM 



K 



Diskette 5.25 Number [ ] Tracks [ ] Sides [ ] 

Diskette 3.5 Number [ ] 720k [ ] 1.4meg [ ] 

Hard Drive Meg [ ] Controller Type 

Printer Type/Model 

Modem Type ; : 

Special Interests 



Can you contribute articles to this Newsletter ? 



Date 



/. 



/. 



Signature 



Amount Enclosed: $ 



( $18-00 will cover you for 12 months ) 

( A$25-00 Overseas ) 
(CHEQUES PAYABLE TO: NATIONAL OS9 USERGROUP) 



Please Return Completed Form to :- 



NATIONAL OS9 USERGROUP 
c/o GORDON BENTZEN 
8 ODIN STREET 
SUNNYBANK QLD 4109 



OR 



NATIONAL OS9 USERGROUP 
c/o J. P. JACQUET 
27 HAMPTON STREET 
DURACK QLD 4077 



